Option Explicit
Sub F_Sample015()
    'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
    'ոF_Data.xls F_Data01g
    'o̷|NոƼgJAYOɮ׶}ҤܽХC
    Dim myCon     As New ADODB.Connection
    Dim myRst     As New ADODB.Recordset
    Dim myCnc     As String
    Dim myCmd     As String
    Dim myFileName As String
    Dim i         As Long
    myFileName = "F_Data.xls"				'ŪJɮ
    myCnc = "Driver={Microsoft Excel Driver (*.xls)};" & _
    "DBQ=" & ThisWorkbook.Path & "\" & myFileName & ";"
    'HSQLӫwŪJ
    myCmd = "SELECT * FROM [F_Data01$]"
    'myCmd = "SELECT * FROM [F_Data01$C1:f10]"
    'myCmd = "SELECT * FROM [F_Data01$] Where  >50"
    'myCmd = "SELECT * FROM [F_Data01$] Where Wr Like 's%'"
    'myCmd = "SELECT * FROM [F_Data01$A10:F20]"
    myCon.Open "Provider=MSDASQL;" & myCnc
    '}ҰO
    myRst.Open Source:=myCmd, ActiveConnection:=myCon
    Worksheets.Add						'u@sW
    With myRst
        'W
        For i = 1 To .Fields.Count
            Cells(1, i).Value = .Fields(i - 1).Name
        Next
        'O
        Range("A2").CopyFromRecordset myRst
        .Close
    End With
    myCon.Close
    Set myRst = Nothing						'
    Set myCon = Nothing
End Sub
